VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BalanceRecordEntity"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit

Dim mvarSerialNumber As String
Dim mvarHospitalName As String
Dim mvarHospitalCategory As String
Dim mvarPatientName As String
Dim mvarGender As String
Dim mvarBirthday As String
Dim mvarCooperativeNumber  As String
Dim mvarPatientAddress As String
Dim mvarCaseNumber As String
Dim mvarAdmissionNumber As String
Dim mvarBedNumber  As String
Dim mvarDepartment As String
Dim mvarAdmissionDate  As String
Dim mvarDischargeDate  As String
Dim mvarAdmissionAgent As String
Dim mvarAdmissionDiagnosis As String
Dim mvarDischargeReason As String
Dim mvarDischargeDiagnosis As String
Dim mvarTotalAmount As String
Dim mvarReimburseRate  As String
Dim mvarBalanceAgent As String
Dim mvarBalanceDate As String

Dim mvarRecordId As String
Dim mvarAreaCode As String

Public Property Let RecordId(ByVal vData As String)
    mvarRecordId = vData
End Property

Public Property Get RecordId() As String
    RecordId = mvarRecordId
End Property

Public Property Let AreaCode(ByVal vData As String)
    mvarAreaCode = vData
End Property

Public Property Get AreaCode() As String
    AreaCode = mvarAreaCode
End Property

Public Property Let ReimburseRate(ByVal vData As Single)
    mvarReimburseRate = vData
End Property

Public Property Get ReimburseRate() As Single
    ReimburseRate = mvarReimburseRate
End Property

Public Property Let TotalAmount(ByVal vData As Double)
    mvarTotalAmount = vData
End Property

Public Property Get TotalAmount() As Double
    TotalAmount = mvarTotalAmount
End Property

Public Property Let CooperativeNumber(ByVal vData As String)
    mvarCooperativeNumber = vData
End Property

Public Property Get CooperativeNumber() As String
    CooperativeNumber = mvarCooperativeNumber
End Property

Public Property Let SerialNumber(ByVal vData As String)
    mvarSerialNumber = vData
End Property

Public Property Get SerialNumber() As String
    SerialNumber = mvarSerialNumber
End Property

Public Property Let BalanceDate(ByVal vData As String)
    mvarBalanceDate = vData
End Property

Public Property Get BalanceDate() As String
    BalanceDate = mvarBalanceDate
End Property

Public Property Let BalanceAgent(ByVal vData As String)
    mvarBalanceAgent = vData
End Property

Public Property Get BalanceAgent() As String
    BalanceAgent = mvarBalanceAgent
End Property

Public Property Let AdmissionAgent(ByVal vData As String)
    mvarAdmissionAgent = vData
End Property

Public Property Get AdmissionAgent() As String
    AdmissionAgent = mvarAdmissionAgent
End Property

Public Property Let DischargeDiagnosis(ByVal vData As String)
    mvarDischargeDiagnosis = vData
End Property

Public Property Get DischargeDiagnosis() As String
    DischargeDiagnosis = mvarDischargeDiagnosis
End Property

Public Property Let AdmissionDiagnosis(ByVal vData As String)
    mvarAdmissionDiagnosis = vData
End Property

Public Property Get AdmissionDiagnosis() As String
    AdmissionDiagnosis = mvarAdmissionDiagnosis
End Property

Public Property Let DischargeDate(ByVal vData As String)
    mvarDischargeDate = vData
End Property

Public Property Get DischargeDate() As String
    DischargeDate = mvarDischargeDate
End Property

Public Property Let AdmissionDate(ByVal vData As String)
    mvarAdmissionDate = vData
End Property

Public Property Get AdmissionDate() As String
    AdmissionDate = mvarAdmissionDate
End Property

Public Property Let DischargeReason(ByVal vData As String)
    mvarDischargeReason = vData
End Property

Public Property Get DischargeReason() As String
    DischargeReason = mvarDischargeReason
End Property

Public Property Let BedNumber(ByVal vData As String)
    mvarBedNumber = vData
End Property

Public Property Get BedNumber() As String
    BedNumber = mvarBedNumber
End Property

Public Property Let AdmissionNumber(ByVal vData As String)
    mvarAdmissionNumber = vData
End Property

Public Property Get AdmissionNumber() As String
    AdmissionNumber = mvarAdmissionNumber
End Property

Public Property Let CaseNumber(ByVal vData As String)
    mvarCaseNumber = vData
End Property

Public Property Get CaseNumber() As String
    CaseNumber = mvarCaseNumber
End Property

Public Property Let Department(ByVal vData As String)
    mvarDepartment = vData
End Property

Public Property Get Department() As String
    Department = mvarDepartment
End Property

Public Property Let PatientAddress(ByVal vData As String)
    mvarPatientAddress = vData
End Property

Public Property Get PatientAddress() As String
    PatientAddress = mvarPatientAddress
End Property

Public Property Let HospitalCategory(ByVal vData As String)
    mvarHospitalCategory = vData
End Property

Public Property Get HospitalCategory() As String
    HospitalCategory = mvarHospitalCategory
End Property

Public Property Let HospitalName(ByVal vData As String)
    mvarHospitalName = vData
End Property

Public Property Get HospitalName() As String
    HospitalName = mvarHospitalName
End Property

Public Property Let Birthday(ByVal vData As String)
    mvarBirthday = vData
End Property

Public Property Get Birthday() As String
    Birthday = mvarBirthday
End Property

Public Property Let Gender(ByVal vData As String)
    mvarGender = vData
End Property

Public Property Get Gender() As String
    Gender = mvarGender
End Property

Public Property Let PatientName(ByVal vData As String)
    mvarPatientName = vData
End Property

Public Property Get PatientName() As String
    PatientName = mvarPatientName
End Property
